home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1990 January & February
/
rerun-1990-01-02.d64
/
traffic jam
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
5KB
|
131 lines
10 rem traffic jam!/(c) 1989
20 clr:dim u,j,r,sc,v,s,sy,tm,v
30 restore:forx=.to6:readh1(x),n1(x):next:gosub560
40 poke53248+21,.:poke53281,.:poke53280,.:printchr$(147)chr$(142)chr$(8)
50 poke53272,31:poke214,10:print:printtab(15)"working ..."
60 forx=12288to12800:readd:pokex,d:next:forx=49223to49572:readd:pokex,d:next
70 print"[147]":poke214,4:print:print""tab(8)"run magazine presents"
80 print""tab(2)"[213][178][201][178][192][201] [213][192][201][178][192][174][178][192][174][213][178][201][213][192][201] [213][178][201][213][192][201][213][201][213][201]"
90 printtab(2)"[154] [194] [194][192][177][201][194][192][194][194][192] [194][192] [194] [194] [194] [194][192][194][194][202][203][194]"
100 printtab(2)"[159] [177] [177] [177][177] [177][177] [177] [202][177][203][202][192][203] [202][192][203] [177] [177][177] [177]"
110 print""tab(6)"[153](c) 1989 jeffrey d. panici"
120 print""tab(12)"for the c-64!":print""tab(8)"[152]joystick in port-two!"
130 print""tab(5)"press fire[160]button to begin!":j=56320:waitj,16,16
140 print"[147]":printchr$(147)"[144] [146]traffic [154]jam! - [153](c) 1989[144] [146]"
150 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [171]"
160 print"[151][171][195][195][195][195][179] [171][195][195][195][179] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
170 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [171]"
180 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
190 print"[151][171][195][179] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [171]"
200 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
210 print"[151][171][195][195][195][179] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] score [154]0"
220 rem initilazation
230 u=1:t=2:h=3:sc=.:v=53248:s=54272:sx=45:sy=828:restore
240 forx=.to5:readh1(x),n1(x):next
250 tm=49223:p=2040:b=192:w1=peek(v+30):w2=peek(v+31)andu:lv=1
260 forx=.to24:pokes+x,.:next:pokes+6,240:pokes+24,15:sys49223
270 poke2040,192:poke2040+u,193:pokev+21,255:pokev,65:pokev+1,230
280 poke2040+2,194:poke2040+3,195:poke2040+4,196:poke2040+5,197:poke2040+6,198
290 poke2040+7,199
300 pokev+2,110:pokev+3,87:pokev+4,210:pokev+5,110:pokev+6,98:pokev+7,136
310 pokev+8,156:pokev+9,158:pokev+10,56:pokev+11,182:pokev+12,179:pokev+13,207
320 pokev+14,70:pokev+15,63:ti$="000000"
330 w1=peek(v+30):w1=peek(v+30):w1=peek(v+30):w2=peek(v+31):w2=peek(v+32)
340 rem main loop
350 forx=1tolv:sys49408:next:w1=peek(v+30):ifw1anduthen400
360 w2=peek(v+31):ifw2anduthen430
370 print" ";:printval(ti$):ifval(ti$)>40-lvthen430
380 iflv=25thenlv=1
390 goto340
400 ifw1=129thengoto520
410 goto430
420 goto340
430 rem game over
440 pokev+21,.:forx=.to24:pokes+x,.:next:pokes+24,15:pokes+5,80:pokes+12,160:pokes+6,255
450 pokes+13,252:pokes+4,17
460 fori=254to50step-4:pokes+i,i:forj=1to5:next:next
470 pokes+1,10:pokes+8,1:pokes+5,112:pokes+6,252:pokes+4,129:pokes+11,129
480 forp=1to1300:next:pokes+24,.
490 print"[147]":printtab(13)"game over":print""tab(12)"[154]final score
500 [153]""[163]15);sc:[153]"print better luck next time!!!"
510 [129]p[178]1[164]3000:[130]:[138]70
520 sc[178]sc[170]100[172]lv:[129]x[178].[164]24:[151]s[170]x,.:[130]:[158]49559:[141]1240:[151]214,21:[153]
530 [153][163]34);sc:lv[178]lv[170]2:[153]" ":[137]260
540 [131] 25,30,33,135,42,62,50,60,42,62,50,60,0,0
550 [143] char data
560 [151]56334,.:[151]1,51:[151]781,9:[151]782,.:[151]90,.:[151]91,216:[151]88,.
570 [151]89,64:[158]41964:[151]1,55:[151]56334,1:[151]54272,216:[151]53272,30
580 [135]a:[139]a[178][171]1[167][142]
590 [129]x[178].[164]7:[135]d:[151]14336[170]a[172]8[170]x,d:[130]:[151]53272,31:[137]580
600 [131] 107,,127,128,128,128,127,,.
610 [131] 67,,255,,,,255,,.
620 [131] 115,,254,1,1,1,254,,.
630 [131] -1
640 [143] sprite data
650 [131] ,,,,,,,,,,,,,,.
660 [131] ,56,,,56,,,16,,,120,,,20,.
670 [131] ,16,,,40,,,36,,,,,,,.
680 [131] ,,,,,,,,,,,,,,.
690 [131] ,,,,,,,,,,,,,,.
700 [131] ,,,,,,,,,,62,,,18,.
710 [131] ,9,,,60,255,224,48,138,252,47,63,226,41,161
720 [131] 145,60,255,63,7,,224,,,,,,,,.
730 [131] ,,,,,,,,,,,,,,.
740 [131] ,,,,,,,,,,,,,112,.
750 [131] 3,168,,29,88,63,234,168,96,21,88,243,159,232,244
760 [131] 193,152,254,127,56,3,128,224,,,,,,,.
770 [131] ,,,,,,,,,,,,,,.
780 [131] ,,,,,,,,,,,,,,.
790 [131] ,,,62,,,18,,,9,,,60,255,224
800 [131] 48,138,252,47,63,226,41,161,145,60,255,63,7,,224
810 [131] ,,,,,,,,,,,,,,.
820 [131] ,,,,,,,,,,,,,,.
830 [131] ,,,,,,112,,3,168,,29,88,63,234
840 [131] 168,96,21,88,243,159,232,244,193,152,254,127,56,3,128
850 [131] 224,,,,,,,,,,,,,,.
860 [131] ,,,,,,,,,,,,,,.
870 [131] ,,,,,,,,,,,62,,,18
880 [131] ,,9,,,60,255,224,48,138,252,47,63,226,41
890 [131] 161,145,60,255,63,7,,224,,,,,,,.
900 [131] ,,,,,,,,,,,,,,.
910 [131] ,,,,,,,,,,,,,,112
920 [131] ,3,168,,29,88,63,234,168,96,21,88,243,159,232
930 [131] 244,193,152,254,127,56,3,128,224,,,,,,.
940 [131] ,,,,,,,,,,,,,,.
950 [131] ,,126,,,255,,1,159,128,3,15,192,6,7
960 [131] 224,12,3,240,24,1,248,55,28,252,119,28,248,16,.
970 [131] 136,16,240,216,16,240,216,16,240,200,16,240,136,16,240
980 [131] 152,31,255,224,,,,,,,,,,,,,,7
990 [143] machine language interrupt
1000 [131] 120,169,84,141,20,3,169,192,141,21,3,88,96,173,148
1010 [131] 192,208,40,174,149,192,232,224,104,208,2,162,,189,150
1020 [131] 192,141,,212,232,189,150,192,141,1,212,232,189,150,192
1030 [131] 141,4,212,232,189,150,192,141,148,192,142,149,192,206,148
1040 [131] 192,32,,193,32,30,193,76,49,234,169,234,141,21,3
1050 [131] 88,96,7,35,143,10,17,15,48,11,17,15,143,12,17
1060 [131] 15,210,15,17,15,195,16,17,15,210,15,17,16,143,12
1070 [131] 17,15,210,15,17,15,24,14,17,15,48,11,17,15,195
1080 [131] 16,17,15,210,15,17,15,143,12,17,15,143,10,17,15
1090 [131] 48,11,17,15,143,12,17,15,210,15,17,15,195,16,17
1100 [131] 15,210,15,17,15,143,12,17,15,31,21,17,15,209,18
1110 [131] 17,15,165,31,17,15,49,28,17,15,96,22,17,15,31
1120 [131] 21,17,15,102,102,238,2,208,206,4,208,238,6,208,206
1130 [131] 8,208,238,10,208,206,12,208,232,224,255,208,251,162,.
1140 [131] 96,30,193,173,,173,,220,74,176,3,206,1,208,74
1150 [131] 176,3,238,1,208,74,176,42,173,,208,208,31,173,16
1160 [131] 208,41,1,208,16,173,16,208,9,1,141,16,208,169,80
1170 [131] 141,,208,96,234,234,173,16,208,41,254,141,16,208,206
1180 [131] ,208,96,234,234,74,176,32,238,,208,240,30,169,80
1190 [131] 205,,208,208,20,173,16,208,41,1,240,13,173,16,208
1200 [131] 41,254,141,16,208,169,,141,,208,96,234,234,173,16
1210 [131] 208,9,1,141,16,208,96,234,234,96,96,96,96,32,30
1220 [131] 193,32,30,193,96,,120,169,49,141,20,3,169,234,141
1230 [131] 21,3,88,96,102
1240 [143] music routine
1250 [129]x[178].[164]24:[151]s[170]x,.:[130]
1260 [151]s[170]24,15:[151]s[170]5,85:[151]s[170]6,85:[151]s[170]4,33:[151]s[170]24,15
1270 [129]x[178].[164]5:[151]s[170]1,h1(x):[151]s,n1(x)
1280 [139]h1(x)[178]50[167][129]t[178].[164]400:[130]
1290 [129]t[178].[164]200:[130]:[130]:[129]x[178].[164]24:[151]s[170]24,.:[130]:[151]s[170]6,240:[151]s[170]24,15
1300 [142]